use Test::More;

my $a = undef//undef//'a';
note $a;
my $fcid="123_456_789";
$fcid =~ s/.*_//;
note $fcid;
